home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 October / 1987-10.d64 / cricket demo #1 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  568b  |  24 lines
  1. 10 rem random circles
  2. 20 k=0:forj=49152to49162:k=k+peek(j):next
  3. 30 ifk<>1210thenload"cricket",8,1
  4. 40 poke 56,140:clr
  5. 50 hr=49152:hz=hr+3:hc=hr+6:hx=hr+9:hp=hr+12
  6. 60 sys hr,1:rem hi-res on
  7. 70 sys hz:rem zero screen
  8. 80 sys hc,1,6:rem white on blue
  9. 90 forb=1to10
  10. 100 cx=int(rnd(1)*219+50):cy=int(rnd(1)*99+50):cr=int(rnd(1)*40+10):gosub150
  11. 110 next
  12. 120 geta$:ifa$=""then120
  13. 130 sys hr,0:rem hi-res off
  14. 140 print"[147][144]":end
  15. 150 fori=0to90step2:a=i*(NULL)/180
  16. 160 dx=cos(a)*cr:dy=sin(a)*cr*.82
  17. 170 sys hx,1,cx+dx,cy+dy:rem set pixels
  18. 180 sys hx,1,cx-dx,cy+dy
  19. 190 sys hx,1,cx+dx,cy-dy
  20. 200 sys hx,1,cx-dx,cy-dy
  21. 210 next
  22. 220 sys hp,b,cx-4,cy-4:rem print characters
  23. 230 return
  24.